home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs58.d81 / geoexpor.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  16 lines
  1. 2 GOTO6
  2. 4 GET#3,A$:A=ASC(A$+CHR$(.)):RETURN
  3. 6 DR=8:POKE2,DR:PRINT"[147][153][199]EO[215]RITE [197]XPORTER [214]1.2 BY [205]ASTER [194]LASTER"
  4. 8 INPUT"[199]EO[215]RITE FILE";GW$:IFGW$=""THEN28
  5. 10 OPEN15,DR,15,"I0:":GOSUB26:OPEN3,DR,3,"0:"+GW$+",U,R":GOSUB26
  6. 12 INPUT"([193])SCII OR ([208])ETSCII";B$:IFB$<>"P"ANDB$<>"A"THEN12
  7. 14 POKE4,ABS(B$="P")*128:I=0
  8. 16 INPUT"[207]UTPUT FILE";O$:IFO$=""THEN28
  9. 18 INPUT"([208])RG OR ([211])EQ FILE";B$:IFB$<>"P"ANDB$<>"S"THEN18
  10. 20 GOSUB4:POKE828+I,A:GOSUB4:POKE900+I,A:IFPEEK(828+I)>.ANDI<59THENI=I+1:GOTO20
  11. 22 CLOSE3:POKE3,I:PRINT:OPEN2,DR,2,"0:"+O$+","+B$+",W":GOSUB26
  12. 24 OPEN3,DR,3,"#":GOSUB26:SYS(11*256):GOSUB26:GOTO28
  13. 26 INPUT#15,E1$,E2$,E3$,E4$:IFE1$<"20"THENRETURN
  14. 28 CLOSE2:CLOSE3:CLOSE15:PRINT:PRINT"[196]ONE. [211]TATUS: "E1$","E2$","E3$","E4$
  15. 30 REM ML EXTENDS FROM $0B00 TO $0C86
  16.